Monster Media 1996 #14/Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO/prog_d/mdexp12.zip/UNIT2.DFM/UNIT2.txt

Text File | 1996-01-10 | 3KB | 146 lines

object DemoForm1: TDemoForm1
  Left = 220
  Top = 152
  Width = 435
  Height = 360
  Caption = 'Interbase Demo'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  OnCreate = FormCreate
  TextHeight = 16
  object MDExplorer1: TMDExplorer
    Left = 0
    Top = 22
    Width = 427
    Height = 311
    OutlineStyle = osPlusMinusText
    Options = [ooDrawFocusRect]
    ItemHeight = 16
    Align = alClient
    TabOrder = 1
    ItemSeparator = '\'
    ScrollBars = ssHorizontal
    Active = False
    DataSource1 = DataSource1
    DataSource2 = DataSource2
    DataSource3 = DataSource3
    DescriptionLabel = Label1
    FieldSeparator = '�'
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 427
    Height = 22
    Align = alTop
    TabOrder = 2
    object Label1: TLabel
      Left = 3
      Top = 3
      Width = 412
      Height = 16
      AutoSize = False
    end
  end
  object Connections1: TConnections
    Left = 192
    Top = 33
    Width = 205
    Height = 256
    BevelOuter = bvLowered
    Caption = 'Interbase Model'
    Font.Color = clWindowText
    Font.Height = -8
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    Visible = False
    CopyToClipboard = False
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'IBLOCAL'
    IndexFieldNames = 'DEPARTMENT'
    TableName = 'DEPARTMENT'
    Left = 228
    Top = 69
    object Table1DEPARTMENT: TStringField
      FieldName = 'DEPARTMENT'
      Required = True
      Size = 25
    end
    object Table1DEPT_NO: TStringField
      FieldName = 'DEPT_NO'
      Required = True
      Size = 3
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 321
    Top = 69
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'IBLOCAL'
    IndexFieldNames = 'DEPT_NO'
    MasterFields = 'DEPT_NO'
    MasterSource = DataSource1
    TableName = 'EMPLOYEE'
    Left = 228
    Top = 144
    object Table2FULL_NAME: TStringField
      FieldName = 'FULL_NAME'
      Size = 37
    end
    object Table2EMP_NO: TSmallintField
      FieldName = 'EMP_NO'
      Required = True
    end
    object Table2DEPT_NO: TStringField
      FieldName = 'DEPT_NO'
      Required = True
      Visible = False
      Size = 3
    end
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 321
    Top = 144
  end
  object Table3: TTable
    Active = True
    DatabaseName = 'IBLOCAL'
    IndexFieldNames = 'EMP_NO'
    MasterFields = 'EMP_NO'
    MasterSource = DataSource2
    TableName = 'SALARY_HISTORY'
    Left = 228
    Top = 216
    object Table3CHANGE_DATE: TDateTimeField
      FieldName = 'CHANGE_DATE'
      Required = True
      DisplayFormat = 'mmm dd yyyy'
    end
    object Table3EMP_NO: TSmallintField
      FieldName = 'EMP_NO'
      Required = True
      Visible = False
    end
    object Table3NEW_SALARY: TFloatField
      FieldName = 'NEW_SALARY'
      Currency = True
    end
  end
  object DataSource3: TDataSource
    DataSet = Table3
    Left = 324
    Top = 216
  end
end